home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / Disk-Archive / install-2_05.dms / install-2_05.adf / S / Picky < prev    next >
Encoding:
AmigaDOS Script File  |  1992-01-09  |  3.1 KB  |  152 lines
  1. .key target,initial/s
  2. .bra [
  3. .ket ]
  4. .def target sys:
  5.  
  6. resident >NIL: c:copy add pure
  7.  
  8. ; build the keymap choice table
  9. failat 21
  10. if "[initial]" NOT EQ ""
  11.     set keysource Extras2.0:
  12. else
  13.     set keysource [target]
  14.  
  15. ; check if they have a keymaps directory, if not we'll need to get
  16. ; the extras disk swapped in now.
  17.     if not exists [target]devs/keymaps
  18.     makedir >NIL: [target]devs
  19.     makedir >NIL: [target]devs/keymaps
  20.         set keysource Extras2.0:
  21.     endif
  22. endif
  23. set keytarget [target]
  24.  
  25. lab keystart
  26. ;
  27. unset number
  28. echo "*Ec*N                Select KeyMap*N"
  29. echo "    1 cdn     (Canadien Français)"
  30. echo "    2 ch1     (Suisse)"
  31. echo "    3 ch2     (Schweiz)"
  32. echo "    4 d       (Deutsch)"
  33. echo "    5 dk      (Dansk)"
  34. echo "    6 e       (Español)"
  35. echo "    7 f       (Français)"
  36. echo "    8 gb      (British)"
  37. echo "    9 i       (Italiano)"
  38. echo "   10 n       (Norsk)"
  39. echo "   11 po      (Portuguesa)"
  40. echo "   12 s       (Svenska)"
  41. echo "   13 usa0    (1.0 American)"
  42. echo "   14 usa2    (Dvorak)"
  43. echo "   15 usa3    (A300 American)"
  44. echo "    0 usa     (American)"
  45.  
  46. echo "*NYour choice (RETURN to exit without choosing) ? " noline
  47. set >NIL: number ?
  48. ; did they want to just quit ?
  49. if "$number" EQ "*$number"
  50.     skip keyend
  51. endif
  52. ;
  53. if VAL "$number" EQ 1
  54.     setenv sys/keyboard cdn
  55.     skip foundit
  56. endif
  57. if VAL "$number" EQ 2
  58.     setenv sys/keyboard ch1
  59.     skip foundit
  60. endif
  61. if VAL "$number" EQ 3
  62.     setenv sys/keyboard ch2
  63.     skip foundit
  64. endif
  65. if VAL "$number" EQ 4
  66.     setenv sys/keyboard d
  67.     skip foundit
  68. endif
  69. if VAL "$number" EQ 5
  70.     setenv sys/keyboard dk
  71.     skip foundit
  72. endif
  73. if VAL "$number" EQ 6
  74.     setenv sys/keyboard e
  75.     skip foundit
  76. endif
  77. if VAL "$number" EQ 7
  78.     setenv sys/keyboard f
  79.     skip foundit
  80. endif
  81. if VAL "$number" EQ 8
  82.     setenv sys/keyboard gb
  83.     skip foundit
  84. endif
  85. if VAL "$number" EQ 9
  86.     setenv sys/keyboard i
  87.     skip foundit
  88. endif
  89. if VAL "$number" EQ 10
  90.     setenv sys/keyboard n
  91.     skip foundit
  92. endif
  93. if VAL "$number" EQ 11
  94.     setenv sys/keyboard po
  95.     skip foundit
  96. endif
  97. if VAL "$number" EQ 12
  98.     setenv sys/keyboard s
  99.     skip foundit
  100. endif
  101. if VAL "$number" EQ 13
  102.     setenv sys/keyboard usa0
  103.     skip foundit
  104. endif
  105. if VAL "$number" EQ 14
  106.     setenv sys/keyboard usa2
  107.     skip foundit
  108. endif
  109. if VAL "$number" EQ 15
  110.     setenv sys/keyboard usa3
  111.     skip foundit
  112. endif
  113. if "$number" EQ "0"
  114.     setenv sys/keyboard usa
  115. ; usa keymap is in rom
  116.     skip keyend
  117. endif
  118. ;
  119. ; hey, maybe they typed the name
  120. ;
  121. setenv sys/keyboard $number
  122. if "$number" EQ "usa"
  123.     skip keyend
  124. endif
  125.  
  126. lab foundit
  127. ;
  128. ; make sure the keymap exists
  129. ;
  130. if not exists ${keytarget}devs/keymaps/${sys/keyboard}
  131.     if "[initial]" EQ ""
  132.         set keysource Extras2.0:
  133.         if not exists ${keysource}devs/keymaps/${sys/keyboard}
  134.             echo "Error: ${sys/keyboard} keymap not found."
  135.             wait 3 sec
  136.             skip back keystart
  137.         endif
  138.     endif
  139.     copy ${keysource}devs/keymaps/${sys/keyboard} ${keytarget}devs/keymaps com
  140. endif
  141.  
  142. ; set the selected keymap
  143. assign devs: ${keytarget}devs add
  144. sys:system/setmap ${sys/keyboard}
  145. assign devs: ${keytarget}devs remove
  146.  
  147. lab keyend
  148.  
  149. unset number 
  150. unset keysource
  151. unset keytarget
  152.